home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir43
/
qsrc_dsk.zip
/
MODEL
/
WIDGBOUT.SPR
< prev
next >
Wrap
Text File
|
1992-01-13
|
5KB
|
135 lines
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ 01/13/92 WIDGBOUT.SPR 23:19:17 ║
* ║ ║
* ╟─────────────────────────────────────────────────────────╢
* ║ ║
* ║ Lisa C. Slater and Steven E. Arnott ║
* ║ ║
* ║ Copyright (c) 1992 ║
* ║ Application developed for _Using FoxPro 2_ ║
* ║ Que Publishing Corporation ║
* ║ ISBN 0-88022-703-6 ║
* ║ ║
* ║ Description: ║
* ║ This program was automatically generated by GENSCRN. ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat
IF SET("TALK") = "ON"
SET TALK OFF
m.talkstat = "ON"
ELSE
m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ Window definitions ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
IF NOT WEXIST("_q291dzhlo")
DEFINE WINDOW _q291dzhlo ;
FROM INT((SROW()-16)/2),INT((SCOL()-60)/2) ;
TO INT((SROW()-16)/2)+15,INT((SCOL()-60)/2)+59 ;
FLOAT ;
NOCLOSE ;
SHADOW ;
DOUBLE ;
COLOR SCHEME 5
ENDIF
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ WIDGBOUT Screen Layout ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
#REGION 1
IF WVISIBLE("_q291dzhlo")
ACTIVATE WINDOW _q291dzhlo SAME
ELSE
ACTIVATE WINDOW _q291dzhlo NOSHOW
ENDIF
@ 4,7,8,49 BOX "┌─┐│┘─└│ "
@ 5,14 SAY " U S I N G F O X P R O 2 "
@ 7,10 SAY "by Lisa C. Slater and Steven E. Arnott"
@ 1,11 SAY "This application was created from "
@ 2,6 SAY "the techniques and model database detailed in"
@ 9,9 TO 9,50 "▀"
@ 5,50 TO 8,50 PANEL
@ 13,3 GET m.done ;
PICTURE "@*HN \<More;\<Done" ;
SIZE 1,6,40 ;
DEFAULT 1 ;
VALID _q291dzi9s()
@ 12,22 SAY "(800) 428-5331"
@ 11,20 SAY "ISBN 0-88022-703-6"
@ 10,22 SAY "Que Publishing"
IF NOT WVISIBLE("_q291dzhlo")
ACTIVATE WINDOW _q291dzhlo
ENDIF
READ CYCLE MODAL
RELEASE WINDOW _q291dzhlo
#REGION 0
IF m.talkstat = "ON"
SET TALK ON
ENDIF
IF m.compstat = "ON"
SET COMPATIBLE ON
ENDIF
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ _Q291DZI9S m.done VALID ║
* ║ ║
* ║ Function Origin: ║
* ║ ║
* ║ From Screen: WIDGBOUT, Record Number: 9 ║
* ║ Variable: m.done ║
* ║ Called By: VALID Clause ║
* ║ Object Type: Push Button ║
* ║ Snippet Number: 1 ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
FUNCTION _q291dzi9s && m.done VALID
#REGION 1
PRIVATE mrow, mcol
IF m.done = 1
mrow = WLROW(WONTOP())
mcol = WLCOL(WONTOP())
DEFINE WINDOW w_about ;
FROM mrow, mcol ;
TO mrow + 1 + WROWS(WONTOP()), ;
mcol + 1 + WCOLS(WONTOP()) ;
CLOSE ;
SHADOW ;
SYSTEM ;
COLOR SCHEME 5 ;
NOFLOAT NOGROW NOZOOM ;
TITLE PADC(" About The Widget Application ",;
WCOLS(WONTOP()) - 6,"═") ;
FOOTER REPL("═",WCOLS(WONTOP()))
MODI FILE widgbout.txt NOMODIFY WINDOW w_about
RELEASE WINDOW w_about
ELSE
CLEAR READ
ENDIF